home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Gen. / Mac Yellow Pages 1.0 / card_30589.txt < prev    next >
Text File  |  1990-08-17  |  11KB  |  513 lines
  1. -- card: 30589 from stack: in.0
  2. -- bmap block id: 30727
  3. -- flags: 4000
  4. -- background id: 29303
  5. -- name: Registration
  6. ----- HyperTalk script -----
  7. on openCard
  8.   send "set the cantModify of this stack to false" to HyperCard
  9.   put the date into bkgnd field "Page Number"
  10.   click at 237,185
  11. end openCard
  12.  
  13. on closeCard
  14.   send "set the cantModify of this stack to true" to HyperCard
  15. end closeCard
  16.  
  17. on help
  18.   send mouseUp to card button "Help"
  19. end help
  20.  
  21.  
  22. -- part 44 (field)
  23. -- low flags: 01
  24. -- high flags: 0001
  25. -- rect: left=79 top=45 right=164 bottom=243
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part 46 (button)
  37. -- low flags: 00
  38. -- high flags: A005
  39. -- rect: left=248 top=90 right=108 bottom=373
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 256
  46. -- line height: 13
  47. -- part name: Word Processing
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the hilite of me is true then
  51.     play harpsichord at6
  52.   else
  53.     play harpsichord at5
  54.   end if
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 47 (field)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=63 top=165 right=276 bottom=244
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 20
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 22
  70. -- part name: Address
  71.  
  72.  
  73. -- part 48 (field)
  74. -- low flags: 01
  75. -- high flags: 0000
  76. -- rect: left=247 top=45 right=87 bottom=492
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 10
  82. -- style flags: 0
  83. -- line height: 13
  84. -- part name: 
  85.  
  86.  
  87. -- part 66 (button)
  88. -- low flags: 00
  89. -- high flags: A005
  90. -- rect: left=248 top=108 right=126 bottom=373
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 3
  95. -- text size: 10
  96. -- style flags: 256
  97. -- line height: 13
  98. -- part name: Spreadsheet
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   if the hilite of me is true then
  102.     play harpsichord at6
  103.   else
  104.     play harpsichord at5
  105.   end if
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 67 (button)
  111. -- low flags: 00
  112. -- high flags: A005
  113. -- rect: left=248 top=126 right=144 bottom=373
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 3
  118. -- text size: 10
  119. -- style flags: 256
  120. -- line height: 13
  121. -- part name: Database
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   if the hilite of me is true then
  125.     play harpsichord at6
  126.   else
  127.     play harpsichord at5
  128.   end if
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 68 (button)
  134. -- low flags: 00
  135. -- high flags: A005
  136. -- rect: left=248 top=144 right=162 bottom=373
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 3
  141. -- text size: 10
  142. -- style flags: 256
  143. -- line height: 13
  144. -- part name: Graphics
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   if the hilite of me is true then
  148.     play harpsichord at6
  149.   else
  150.     play harpsichord at5
  151.   end if
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 69 (button)
  157. -- low flags: 00
  158. -- high flags: A005
  159. -- rect: left=248 top=162 right=180 bottom=373
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 1
  163. -- font id: 3
  164. -- text size: 10
  165. -- style flags: 256
  166. -- line height: 13
  167. -- part name: Communication
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   if the hilite of me is true then
  171.     play harpsichord at6
  172.   else
  173.     play harpsichord at5
  174.   end if
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 70 (button)
  180. -- low flags: 00
  181. -- high flags: A005
  182. -- rect: left=248 top=180 right=198 bottom=373
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 256
  189. -- line height: 13
  190. -- part name: Network Products
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   if the hilite of me is true then
  194.     play harpsichord at6
  195.   else
  196.     play harpsichord at5
  197.   end if
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part 71 (button)
  203. -- low flags: 00
  204. -- high flags: A005
  205. -- rect: left=248 top=198 right=216 bottom=373
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 3
  210. -- text size: 10
  211. -- style flags: 256
  212. -- line height: 13
  213. -- part name: Programming
  214. ----- HyperTalk script -----
  215. on mouseUp
  216.   if the hilite of me is true then
  217.     play harpsichord at6
  218.   else
  219.     play harpsichord at5
  220.   end if
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 74 (button)
  226. -- low flags: 00
  227. -- high flags: A005
  228. -- rect: left=373 top=90 right=108 bottom=498
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 1
  232. -- font id: 3
  233. -- text size: 10
  234. -- style flags: 256
  235. -- line height: 13
  236. -- part name: Storage Devices
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   if the hilite of me is true then
  240.     play harpsichord at6
  241.   else
  242.     play harpsichord at5
  243.   end if
  244. end mouseUp
  245.  
  246.  
  247.  
  248. -- part 75 (button)
  249. -- low flags: 00
  250. -- high flags: A005
  251. -- rect: left=373 top=108 right=126 bottom=498
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 0 / 0
  254. -- text alignment: 1
  255. -- font id: 3
  256. -- text size: 10
  257. -- style flags: 256
  258. -- line height: 13
  259. -- part name: Printers
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   if the hilite of me is true then
  263.     play harpsichord at6
  264.   else
  265.     play harpsichord at5
  266.   end if
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 76 (button)
  272. -- low flags: 00
  273. -- high flags: A005
  274. -- rect: left=373 top=126 right=144 bottom=498
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 3
  279. -- text size: 10
  280. -- style flags: 256
  281. -- line height: 13
  282. -- part name: Video/Monitors
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   if the hilite of me is true then
  286.     play harpsichord at6
  287.   else
  288.     play harpsichord at5
  289.   end if
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part 77 (button)
  295. -- low flags: 00
  296. -- high flags: A005
  297. -- rect: left=373 top=144 right=162 bottom=498
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 0 / 0
  300. -- text alignment: 1
  301. -- font id: 3
  302. -- text size: 10
  303. -- style flags: 256
  304. -- line height: 13
  305. -- part name: Business
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   if the hilite of me is true then
  309.     play harpsichord at6
  310.   else
  311.     play harpsichord at5
  312.   end if
  313. end mouseUp
  314.  
  315.  
  316.  
  317. -- part 78 (button)
  318. -- low flags: 00
  319. -- high flags: A005
  320. -- rect: left=373 top=162 right=180 bottom=498
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 1
  324. -- font id: 3
  325. -- text size: 10
  326. -- style flags: 256
  327. -- line height: 13
  328. -- part name: Personal/Home
  329. ----- HyperTalk script -----
  330. on mouseUp
  331.   if the hilite of me is true then
  332.     play harpsichord at6
  333.   else
  334.     play harpsichord at5
  335.   end if
  336. end mouseUp
  337.  
  338.  
  339.  
  340. -- part 79 (button)
  341. -- low flags: 00
  342. -- high flags: A005
  343. -- rect: left=373 top=180 right=198 bottom=498
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 3
  348. -- text size: 10
  349. -- style flags: 256
  350. -- line height: 13
  351. -- part name: Games
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   if the hilite of me is true then
  355.     play harpsichord at6
  356.   else
  357.     play harpsichord at5
  358.   end if
  359. end mouseUp
  360.  
  361.  
  362.  
  363. -- part 80 (button)
  364. -- low flags: 00
  365. -- high flags: A005
  366. -- rect: left=373 top=198 right=216 bottom=498
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 1
  370. -- font id: 3
  371. -- text size: 10
  372. -- style flags: 256
  373. -- line height: 13
  374. -- part name: 
  375. ----- HyperTalk script -----
  376. on mouseUp
  377.   if the hilite of me is true then
  378.     play harpsichord at6
  379.   else
  380.     play harpsichord at5
  381.   end if
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 87 (field)
  387. -- low flags: 01
  388. -- high flags: 2002
  389. -- rect: left=253 top=225 right=275 bottom=490
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 0
  393. -- font id: 3
  394. -- text size: 10
  395. -- style flags: 0
  396. -- line height: 13
  397. -- part name: 
  398.  
  399.  
  400. -- part 88 (field)
  401. -- low flags: 01
  402. -- high flags: 0000
  403. -- rect: left=21 top=45 right=60 bottom=50
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 0 / 0
  406. -- text alignment: 0
  407. -- font id: 3
  408. -- text size: 10
  409. -- style flags: 0
  410. -- line height: 13
  411. -- part name: Edition Number
  412.  
  413.  
  414. -- part 90 (button)
  415. -- low flags: 00
  416. -- high flags: 2000
  417. -- rect: left=12 top=305 right=337 bottom=48
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 1
  421. -- font id: 0
  422. -- text size: 12
  423. -- style flags: 0
  424. -- line height: 16
  425. -- part name: Help
  426. ----- HyperTalk script -----
  427. on mouseDown
  428.   play stop
  429.   play harpsichord a7e
  430. end mouseDown
  431.  
  432. on mouseUp
  433.   set lockScreen to true
  434.   go to card "Registration Help"
  435.   put the date into bkgnd field "Page Number"
  436.   go to card "Registration Help"
  437.   set lockScreen to false
  438. end mouseUp
  439.  
  440.  
  441. -- part 91 (button)
  442. -- low flags: 00
  443. -- high flags: 2000
  444. -- rect: left=53 top=305 right=337 bottom=89
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Print
  453. ----- HyperTalk script -----
  454. on mouseDown
  455.   play stop
  456.   play harpsichord a7e
  457. end mouseDown
  458.  
  459. on mouseUp
  460.   answer "Print registration form?" with "Cancel" or "OK"
  461.   if it is "OK" then
  462.     global alreadyPrinted
  463.     put true into alreadyPrinted
  464.     set lockScreen to true
  465.     open printing
  466.     print 2 cards
  467.     close printing
  468.     set lockScreen to false
  469.   end if
  470. end mouseUp
  471.  
  472.  
  473.  
  474.  
  475. -- part 93 (field)
  476. -- low flags: 00
  477. -- high flags: 4000
  478. -- rect: left=388 top=200 right=218 bottom=492
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 0 / 0
  481. -- text alignment: 0
  482. -- font id: 3
  483. -- text size: 10
  484. -- style flags: 256
  485. -- line height: 13
  486. -- part name: Other
  487.  
  488.  
  489. -- part contents for background part 13
  490. ----- text -----
  491. REGISTRATION
  492.  
  493. -- part contents for card part 44
  494. ----- text -----
  495. Anyone can be  a registered user of  the  Macintosh  Yellow Pages.  Registration is FREE, and so are the  benefits  you  will   receive.  As  a  registered user,  you  will receive  free  newsletters whenever  the Macintosh Yellow Pages  is  updated.   We  want  to keep you up-to-date.
  496.  
  497. -- part contents for card part 48
  498. ----- text -----
  499. What kind of product information would you like to  see  in  the  future  updates  of  the Macintosh Yellow Pages?
  500.  
  501. -- part contents for background part 22
  502. ----- text -----
  503. 8/17/90
  504.  
  505. -- part contents for card part 87
  506. ----- text -----
  507. PRINT THIS PAGE AND MAIL TO:
  508. Macintosh Yellow Pages, Kendall Square
  509. P.O. Box 23, Cambridge, MA 02142.
  510.  
  511. -- part contents for card part 88
  512. ----- text -----
  513. 1